home *** CD-ROM | disk | FTP | other *** search
/ Long Ban 3 / Long Ban 3 - Disc 1.iso / mac / DISK1 / DATA / phot2.Dxr / 00024.ls < prev    next >
Encoding:
Text File  |  1997-03-22  |  1.2 KB  |  72 lines
  1. on exitFrame
  2.   global pss
  3.   if isslideshowtimeout() and isautomode() then
  4.     startslideshowtimer()
  5.     if pss = 2 then
  6.       go("ST2")
  7.     else
  8.       go("ST3")
  9.     end if
  10.   else
  11.     go(the frame)
  12.   end if
  13. end
  14.  
  15. on wait t
  16.   set wk to the ticks + (t * 60.0)
  17.   repeat while wk > the ticks
  18.     nothing()
  19.   end repeat
  20. end
  21.  
  22. on buttonaction sp
  23.   set the visible of sprite sp to 0
  24.   puppetSound("Laser.aif", 2)
  25.   updateStage()
  26.   wait(1)
  27.   set the visible of sprite sp to 1
  28.   puppetSound(0, 2)
  29.   updateStage()
  30. end
  31.  
  32. on buttonaction2 sp
  33.   set the visible of sprite sp to 0
  34.   updateStage()
  35.   wait(0.5)
  36.   set the visible of sprite sp to 1
  37.   updateStage()
  38. end
  39.  
  40. on mouseDown
  41.   global pss
  42.   set sp to the clickOn
  43.   case sp of
  44.     2, 3, 4:
  45.       setspeed(sp - 1)
  46.     6:
  47.       buttonaction(sp)
  48.       go(1, "menu2")
  49.     7:
  50.       buttonaction(sp)
  51.       quit()
  52.     8:
  53.       set the visible of sprite 5 to 1
  54.       buttonaction2(sp)
  55.       go(the frame - 1)
  56.     9:
  57.       set the visible of sprite 5 to 1
  58.       buttonaction2(sp)
  59.       if pss = 2 then
  60.         go("ST2")
  61.       else
  62.         go("ST3")
  63.       end if
  64.     10:
  65.       if the visible of sprite 5 = 0 then
  66.         set the visible of sprite 5 to 1
  67.       else
  68.         set the visible of sprite 5 to 0
  69.       end if
  70.   end case
  71. end
  72.